|
AutoCAD VBA : Order erstellen und struktur kopieren
runkelruebe am 31.01.2008 um 17:09 Uhr (0)
hmpf, warum dann das ganze ZielPfadTheater?Code:Option ExplicitDim Pfad As StringPublic Sub Command1_Click() Call Ordner_kopierenEnd SubSub Ordner_kopieren()Dim Ziel As StringConst ueberschreiben As Boolean = TrueConst Quelle As String = "K:Mitarbeiterdr\_ORDNERSTRUKTUR"Call ordnerauswahlZiel = Pfad & "" & Right(Quelle, InStr(1, StrReverse(Quelle), "") - 1)Debug.Print Quelle & " nach " & ZielDim objFSO As ObjectSet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.CopyFolder Quelle, Ziel, ueberschr ...
|
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
KlaK am 09.05.2017 um 23:13 Uhr (1)
Hallo Acaduser84, Willkommen im Forum Habe zwar gerade kein Autocad bei der Hand aber vielleicht auf die Schnelle ein paar Hinweise.Zunächst schreibst Du Du hast eine Autocadzeichnung die den Block "Rohrtabelle" enthält. Im Programm überprüfst Du zwar ob eine Autocadzeichnung geöffnet ist, falls nicht wird einfach eine neue Zeichnung geöffnet. Stellt sich mir natürlich gleich die Frage ob der Block in der Standardvorlage enthalten ist.Dann holst Du Dir die Blockdefinition und möchtest das Attribut der Def ...
|
|
Autocad VBA : setXData
mapcar am 28.07.2005 um 12:52 Uhr (0)
Hi Nancy! Ich will noch mal versuchen, dir (und jedem, den s interessiert), das mit dem Appname zu erklären: Jede Applikation, auch deine, sollte *einen* eindeutigen Namen haben. Das hat folgende Vorteile: 1. Man kann Entities danach filtern (z.B. mit Befehlen oder ssget in Lisp) 2. Man bringt nicht die AutoCAD-EEDs mit den eigenen durcheinander 3. Man bringt nicht die eigenen Daten mit denen einer anderen Applikation durcheinander Mit einer Zeile wie oTxt.GetXData "", xType, xDat tust du aber genau das ...
|
|
Autocad VBA : Block zu Gruppe
RoSiNiNo am 06.08.2003 um 07:36 Uhr (0)
Stell doch einmal deine Zeilen rein, dann kann man schon wo der Hund begraben liegt. Sonst steht in der Hilfe genau beschrieben wie man es macht (sogar mit Beispiel). Zuerst einmal: Code: ADDGROUP: Create a new group called New_Group in current drawing Dim groupObj As AcadGroup Add the group to the groups collection Set groupObj = ThisDrawing.Groups.Add( New_Group ) MsgBox groupObj.name & has been added. , , Add Example und dann: object.AppendItems Objects Object Gr ...
|
|
Autocad VBA : Gruppeninhalte
GuidoE am 05.09.2003 um 15:16 Uhr (0)
Hallo Bernd, Mit diesem Programm müssen Sie allerdings einzelne Objekte anwählen (Keine SelectionSet), jedoch hoffe ich Ihnen damit geholfen zu haben. Sub WelcheGruppe1() On Error GoTo ErrTrap Dim obj As Object, pt As Variant, Txt As String ThisDrawing.Utility.GetEntity obj, pt, Gruppe Wählen: Dim gruppe As Object, item As Object For Each gruppe In ThisDrawing.Groups For Each item In gruppe If item.ObjectID = obj.ObjectID Then Set obj = gruppe: Exit For Next item If TypeOf obj Is Aca ...
|
|
Autocad VBA : EXIST-Anweisung
BerndE am 17.10.2003 um 09:57 Uhr (0)
Hi Forum, folgende Zeile führt bei nicht vorhandenem Layer zu einer Fehlermeldung: Set layerObj = ThisDrawing.Layers.item( OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_---- ) layerObj.LayerOn = False wie muss die Befehlszeile lauten, mit der ich diesen Fehler abfange: IF EXIST ..... (oder so ähnlich...und wie weiter?) Vielen Dank schon mal) ------------------ Bernd
|
|
Autocad VBA : EXIST-Anweisung
fuchsi am 17.10.2003 um 10:38 Uhr (0)
ich würd mir da eine kleine funktion schreiben Public Function ExistsLayer(layer As String) As Boolean layer = UCase(layer) Dim n1 As AcadLayer For Each n1 In ThisDrawing.Layers If UCase(n1.Name) = UCase(layer) Then ExistsLayer = True: Exit Function Next End Function if exitslayer( OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_---- ) then Set layerObj = ThisDrawing.Layers.item( OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_---- ) layerObj.LayerOn = ...
|
|
Autocad VBA : Objekte in Block laden
RoSiNiNo am 22.10.2003 um 21:19 Uhr (0)
Hier hast du zwei Funktionen, die solten dir weiterhelfen Code: Adds the specified objects to a given block definition Public Sub AddObjectsToBlock(blkRef As AcadBlockReference, entArray() As AcadEntity, Optional delObj As Boolean = True) Beispiel für Aufruf: AddObjectsToBlock blkRef, ents, False 1. Existing block references will not show a change unitl you regen the drawing 2. You can use the ssArray function to add an entire selection set at once. Dim blkDef As AcadBlock, origin(0 To 2) As Doub ...
|
|
Autocad VBA : ARX-Anwendungen
peter12 am 15.11.2003 um 21:18 Uhr (0)
hi leute! um solche arx programme zu schreiben muss du dazu certified developer sein, oder kann das ein jeder der C++ kann? und gibts ne doku (wo) dazu? habs gefunden unter: http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=785550 und habt ihr anwendungsfälle wo eine vba-programmierung nicht mehr ausreichend? Zitat: Mit vba oder lisp kannst du ein wenig vereinfachen, aber wenn du ne applikation willst solls eine arx programmierung sein! ist das so? lg peter [Diese Nachricht wurde von peter1 ...
|
|
Autocad VBA : Datenbankverknüpfung mit MAP verwenden
harryk am 21.01.2004 um 10:45 Uhr (0)
spinnt die Antwortfuntion oder hab ich nen Dejavue?? Egal, dann halt nochmal: Sub GetLinkID() Dim RegObj As AcadEntity Dim RegObjPt ThisDrawing.Utility.GetEntity RegObj, RegObjPt, select item Dim xdataOut As Variant Dim xtypeOut As Variant RegObj.GetXData , xtypeOut, xdataOut For i = LBound(xdataOut) To UBound(xdataOut) If xtypeOut(i) = 1004 Then Debug.Print xtypeOut(i) & : & xdataOut(i) Debug.Print Link_ID= & Asc(left(xdataOut(i), 1)) ...
|
|
Autocad VBA : Gruppeninhalte
startrek am 12.05.2004 um 10:23 Uhr (0)
Hi Bernd, ausgegangen von Guido s Ansatz etwas wackelig etwa s.u., wobei es in Selectionsets bissel crazy ist irgendwie Was mir unklar halt, während der Auswahl bringt er in der Kommandozeile sowas: Objekte wählen: Entgegengesetzte Ecke angeben: 9 gefunden, 3 Gruppen Er erkennt zwar die Gruppen, kennt wohl aber die Namen nicht, bzw. weiss ich nicht wie da einfacher rankommen ... Recht unfertig und nicht besonders getestet, nur mal so als Idee lg Nancy -- Code: Sub tescht() On Error GoTo Hell Dim i ...
|
|
Autocad VBA : Get Xdata Entitys
dan_rather am 27.05.2004 um 14:29 Uhr (0)
Hallo zusammen, wie zeige ich mit folgendem Code alle xdaten im gewählten sset an? irgendwas fehlt hier noch, aber was? Sub Kanal_Berechnung() Suchen der im vorherigen Beispiel erstellten Auswahl On Error GoTo Hell Dim awss As AcadSelectionSet Set awss = ThisDrawing.SelectionSets.Add( 310 ) awss.SelectOnScreen Dim sset As Object Set sset = ThisDrawing.SelectionSets.item( 310 ) Definieren der XDaten-Variablen zum Erfassen der XDaten-Informationen Dim xdat ...
|
|
Autocad VBA : Längenermittlung von Polylinien
hendersson am 12.08.2004 um 16:10 Uhr (0)
Hallochen zusammen, das hier ist eine ganz alte Sache ... und ich Rindvieh komme nicht dahinter Folgendes: Ich will eine Längenermittlung für viele viele Polylines in VBA durchführen. Die polylines werden bereits automatisch mit Hilfe von Filtern in einen Auswahlsatz übernommen und konnen mit einer FOR-NEXT Schleife über .item einzeln angesprochen werden. Was ich nun machen will/muß: Ich will mit .coordinates für jede Polyline die Stützpunkte (vertex) ermitteln und über diese dann die Teillängen berechn ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
